*** program reads raw UBS/Gallup survey SPSS files from https://ropercenter.cornell.edu/ubs-index-investor-optimism-1996-2007 ***; 


libname ubs0701 spss 'c:\myfiles\data\ubs\ubs0701.por';   * This names your SPSS Export file and uses the SPSS read engine;
libname ubs0702 spss 'c:\myfiles\data\ubs\ubs0702.por';
libname ubs0703 spss 'c:\myfiles\data\ubs\ubs0703.por';
libname ubs0704 spss 'c:\myfiles\data\ubs\ubs0704.por';
libname ubs0705 spss 'c:\myfiles\data\ubs\ubs0705.por';
libname ubs0706 spss 'c:\myfiles\data\ubs\ubs0706.por';
libname ubs0707 spss 'c:\myfiles\data\ubs\ubs0707.por';
libname ubs0708 spss 'c:\myfiles\data\ubs\ubs0708.por';
libname ubs0709 spss 'c:\myfiles\data\ubs\ubs0709.por';
libname ubs0710 spss 'c:\myfiles\data\ubs\ubs0710.por';

******libname ubs0601 spss 'c:\myfiles\data\ubs\ubs0601.por';   * This names your SPSS Export file and uses the SPSS read engine;
libname ubs0602 spss 'c:\myfiles\data\ubs\ubs0602.por';
libname ubs0603 spss 'c:\myfiles\data\ubs\ubs0603.por';
libname ubs0604 spss 'c:\myfiles\data\ubs\ubs0604.por';
libname ubs0605 spss 'c:\myfiles\data\ubs\ubs0605.por';
libname ubs0606 spss 'c:\myfiles\data\ubs\ubs0606.por';
libname ubs0607 spss 'c:\myfiles\data\ubs\ubs0607.por';
libname ubs0608 spss 'c:\myfiles\data\ubs\ubs0608.por';
libname ubs0609 spss 'c:\myfiles\data\ubs\ubs0609.por';
libname ubs0610 spss 'c:\myfiles\data\ubs\ubs0610.por';
libname ubs0611 spss 'c:\myfiles\data\ubs\ubs0611.por';
libname ubs0612 spss 'c:\myfiles\data\ubs\ubs0612.por';

libname ubs0501 spss 'c:\myfiles\data\ubs\ubs0501.por';   * This names your SPSS Export file and uses the SPSS read engine;
libname ubs0502 spss 'c:\myfiles\data\ubs\ubs0502.por';
libname ubs0503 spss 'c:\myfiles\data\ubs\ubs0503.por';
libname ubs0504 spss 'c:\myfiles\data\ubs\ubs0504.por';
libname ubs0505 spss 'c:\myfiles\data\ubs\ubs0505.por';
libname ubs0506 spss 'c:\myfiles\data\ubs\ubs0506.por';
libname ubs0507 spss 'c:\myfiles\data\ubs\ubs0507.por';
libname ubs0508 spss 'c:\myfiles\data\ubs\ubs0508.por';
libname ubs0509 spss 'c:\myfiles\data\ubs\ubs0509.por';
libname ubs0510 spss 'c:\myfiles\data\ubs\ubs0510.por';
libname ubs0511 spss 'c:\myfiles\data\ubs\ubs0511.por';
libname ubs0512 spss 'c:\myfiles\data\ubs\ubs0512.por';

libname ubs0401 spss 'c:\myfiles\data\ubs\ubs0401.por';   * This names your SPSS Export file and uses the SPSS read engine;
libname ubs0402 spss 'c:\myfiles\data\ubs\ubs0402.por';
libname ubs0403 spss 'c:\myfiles\data\ubs\ubs0403.por';
libname ubs0404 spss 'c:\myfiles\data\ubs\ubs0404.por';
libname ubs0405 spss 'c:\myfiles\data\ubs\ubs0405.por';
libname ubs0406 spss 'c:\myfiles\data\ubs\ubs0406.por';
libname ubs0407 spss 'c:\myfiles\data\ubs\ubs0407.por';
libname ubs0408 spss 'c:\myfiles\data\ubs\ubs0408.por';
libname ubs0409 spss 'c:\myfiles\data\ubs\ubs0409.por';
libname ubs0410 spss 'c:\myfiles\data\ubs\ubs0410.por';
libname ubs0411 spss 'c:\myfiles\data\ubs\ubs0411.por';
libname ubs0412 spss 'c:\myfiles\data\ubs\ubs0412.por';

libname ubs0301 spss 'c:\myfiles\data\ubs\ubs0301.por';   * This names your SPSS Export file and uses the SPSS read engine;
libname ubs0302 spss 'c:\myfiles\data\ubs\ubs0302.por';
libname ubs0303 spss 'c:\myfiles\data\ubs\ubs0303.por';
libname ubs0304 spss 'c:\myfiles\data\ubs\ubs0304.por';
libname ubs0305 spss 'c:\myfiles\data\ubs\ubs0305.por';
libname ubs0306 spss 'c:\myfiles\data\ubs\ubs0306.por';
libname ubs0307 spss 'c:\myfiles\data\ubs\ubs0307.por';
libname ubs0308 spss 'c:\myfiles\data\ubs\ubs0308.por';
libname ubs0309 spss 'c:\myfiles\data\ubs\ubs0309.por';
libname ubs0310 spss 'c:\myfiles\data\ubs\ubs0310.por';
libname ubs0311 spss 'c:\myfiles\data\ubs\ubs0311.por';
libname ubs0312 spss 'c:\myfiles\data\ubs\ubs0312.por';

libname ubs0201 spss 'c:\myfiles\data\ubs\ubs0201.por';   * This names your SPSS Export file and uses the SPSS read engine;
libname ubs0202 spss 'c:\myfiles\data\ubs\ubs0202.por';
libname ubs0203 spss 'c:\myfiles\data\ubs\ubs0203.por';
libname ubs0204 spss 'c:\myfiles\data\ubs\ubs0204.por';
libname ubs0205 spss 'c:\myfiles\data\ubs\ubs0205.por';
libname ubs0206 spss 'c:\myfiles\data\ubs\ubs0206.por';
libname ubs0207 spss 'c:\myfiles\data\ubs\ubs0207.por';
libname ubs0208 spss 'c:\myfiles\data\ubs\ubs0208.por';
libname ubs0209 spss 'c:\myfiles\data\ubs\ubs0209.por';
libname ubs0210 spss 'c:\myfiles\data\ubs\ubs0210.por';
libname ubs0211 spss 'c:\myfiles\data\ubs\ubs0211.por';
libname ubs0212 spss 'c:\myfiles\data\ubs\ubs0212.por';

libname ubs0101 spss 'c:\myfiles\data\ubs\ubs0101.por';   * This names your SPSS Export file and uses the SPSS read engine;
libname ubs0102 spss 'c:\myfiles\data\ubs\ubs0102.por';
libname ubs0103 spss 'c:\myfiles\data\ubs\ubs0103.por';
libname ubs0104 spss 'c:\myfiles\data\ubs\ubs0104.por';
libname ubs0105 spss 'c:\myfiles\data\ubs\ubs0105.por';
libname ubs0106 spss 'c:\myfiles\data\ubs\ubs0106.por';
libname ubs0107 spss 'c:\myfiles\data\ubs\ubs0107.por';
libname ubs0108 spss 'c:\myfiles\data\ubs\ubs0108.por';
libname ubs0109 spss 'c:\myfiles\data\ubs\ubs0109.por';
libname ubs0110 spss 'c:\myfiles\data\ubs\ubs0110.por';
libname ubs0111 spss 'c:\myfiles\data\ubs\ubs0111.por';
libname ubs0112 spss 'c:\myfiles\data\ubs\ubs0112.por';

libname ubs0001 spss 'c:\myfiles\data\ubs\ubs0001.por';   * This names your SPSS Export file and uses the SPSS read engine;
libname ubs0002 spss 'c:\myfiles\data\ubs\ubs0002.por';
libname ubs0003 spss 'c:\myfiles\data\ubs\ubs0003.por';
libname ubs0004 spss 'c:\myfiles\data\ubs\ubs0004.por';
libname ubs0005 spss 'c:\myfiles\data\ubs\ubs0005.por';
libname ubs0006 spss 'c:\myfiles\data\ubs\ubs0006.por';
libname ubs0007 spss 'c:\myfiles\data\ubs\ubs0007.por';
libname ubs0008 spss 'c:\myfiles\data\ubs\ubs0008.por';
libname ubs0009 spss 'c:\myfiles\data\ubs\ubs0009.por';
libname ubs0010 spss 'c:\myfiles\data\ubs\ubs0010.por';
libname ubs0011 spss 'c:\myfiles\data\ubs\ubs0011.por';
libname ubs0012 spss 'c:\myfiles\data\ubs\ubs0012.por';

libname ubs9902 spss 'c:\myfiles\data\ubs\ubs9902.por';
libname ubs9903 spss 'c:\myfiles\data\ubs\ubs9903.por';
libname ubs9904 spss 'c:\myfiles\data\ubs\ubs9904.por';
libname ubs9905 spss 'c:\myfiles\data\ubs\ubs9905.por';
libname ubs9906 spss 'c:\myfiles\data\ubs\ubs9906.por';
libname ubs9907 spss 'c:\myfiles\data\ubs\ubs9907.por';
libname ubs9908 spss 'c:\myfiles\data\ubs\ubs9908.por';
libname ubs9909 spss 'c:\myfiles\data\ubs\ubs9909.por';
libname ubs9910 spss 'c:\myfiles\data\ubs\ubs9910.por';
libname ubs9911 spss 'c:\myfiles\data\ubs\ubs9911.por';
libname ubs9912 spss 'c:\myfiles\data\ubs\ubs9912.por';

libname ubs9811 spss 'c:\myfiles\data\ubs\ubs9811.por';
libname ubs9809 spss 'c:\myfiles\data\ubs\ubs9809.por';
libname ubs9805 spss 'c:\myfiles\data\ubs\ubs9805.por';

proc copy in=ubs0701 out=ubs; data ubs.ubs0701; set ubs._first_; year = 2007; month = 1; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_; 
proc copy in=ubs0702 out=ubs; data ubs.ubs0702; set ubs._first_; year = 2007; month = 2; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0703 out=ubs; data ubs.ubs0703; set ubs._first_; year = 2007; month = 3; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0704 out=ubs; data ubs.ubs0704; set ubs._first_; year = 2007; month = 4; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0705 out=ubs; data ubs.ubs0705; set ubs._first_; year = 2007; month = 5; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0706 out=ubs; data ubs.ubs0706; set ubs._first_; year = 2007; month = 6; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0707 out=ubs; data ubs.ubs0707; set ubs._first_; year = 2007; month = 7; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0708 out=ubs; data ubs.ubs0708; set ubs._first_; year = 2007; month = 8; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0709 out=ubs; data ubs.ubs0709; set ubs._first_; year = 2007; month = 9; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0710 out=ubs; data ubs.ubs0710; set ubs._first_; year = 2007; month = 10; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
 
proc copy in=ubs0602 out=ubs; data ubs.ubs0602; set ubs._first_; year = 2006; month = 2; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0603 out=ubs; data ubs.ubs0603; set ubs._first_; year = 2006; month = 3; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0604 out=ubs; data ubs.ubs0604; set ubs._first_; year = 2006; month = 4; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0605 out=ubs; data ubs.ubs0605; set ubs._first_; year = 2006; month = 5; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0606 out=ubs; data ubs.ubs0606; set ubs._first_; year = 2006; month = 6; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0607 out=ubs; data ubs.ubs0607; set ubs._first_; year = 2006; month = 7; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0608 out=ubs; data ubs.ubs0608; set ubs._first_; year = 2006; month = 8; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0609 out=ubs; data ubs.ubs0609; set ubs._first_; year = 2006; month = 9; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0610 out=ubs; data ubs.ubs0610; set ubs._first_; year = 2006; month = 10; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0611 out=ubs; data ubs.ubs0611; set ubs._first_; year = 2006; month = 11; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0612 out=ubs; data ubs.ubs0612; set ubs._first_; year = 2006; month = 12; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
 
proc copy in=ubs0501 out=ubs; data ubs.ubs0501; set ubs._first_; year = 2005; month = 1; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_; 
proc copy in=ubs0502 out=ubs; data ubs.ubs0502; set ubs._first_; year = 2005; month = 2; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0503 out=ubs; data ubs.ubs0503; set ubs._first_; year = 2005; month = 3; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0504 out=ubs; data ubs.ubs0504; set ubs._first_; year = 2005; month = 4; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0505 out=ubs; data ubs.ubs0505; set ubs._first_; year = 2005; month = 5; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0506 out=ubs; data ubs.ubs0506; set ubs._first_; year = 2005; month = 6; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0507 out=ubs; data ubs.ubs0507; set ubs._first_; year = 2005; month = 7; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0508 out=ubs; data ubs.ubs0508; set ubs._first_; year = 2005; month = 8; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0509 out=ubs; data ubs.ubs0509; set ubs._first_; year = 2005; month = 9; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0510 out=ubs; data ubs.ubs0510; set ubs._first_; year = 2005; month = 10; keep year month wtfctr  id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0511 out=ubs; data ubs.ubs0511; set ubs._first_; year = 2005; month = 11; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0512 out=ubs; data ubs.ubs0512; set ubs._first_; year = 2005; month = 12; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
 

proc copy in=ubs0401 out=ubs; data ubs.ubs0401; set ubs._first_; year = 2004; month = 1; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_; 
proc copy in=ubs0402 out=ubs; data ubs.ubs0402; set ubs._first_; year = 2004; month = 2; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0403 out=ubs; data ubs.ubs0403; set ubs._first_; year = 2004; month = 3; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0404 out=ubs; data ubs.ubs0404; set ubs._first_; year = 2004; month = 4; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0405 out=ubs; data ubs.ubs0405; set ubs._first_; year = 2004; month = 5; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0406 out=ubs; data ubs.ubs0406; set ubs._first_; year = 2004; month = 6; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0407 out=ubs; data ubs.ubs0407; set ubs._first_; year = 2004; month = 7; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0408 out=ubs; data ubs.ubs0408; set ubs._first_; year = 2004; month = 8; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0409 out=ubs; data ubs.ubs0409; set ubs._first_; year = 2004; month = 9; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0410 out=ubs; data ubs.ubs0410; set ubs._first_; year = 2004; month = 10; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0411 out=ubs; data ubs.ubs0411; set ubs._first_; year = 2004; month = 11; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0412 out=ubs; data ubs.ubs0412; set ubs._first_; year = 2004; month = 12; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
 

proc copy in=ubs0301 out=ubs; data ubs.ubs0301; set ubs._first_; year = 2003; month = 1; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_; 
proc copy in=ubs0302 out=ubs; data ubs.ubs0302; set ubs._first_; year = 2003; month = 2; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0303 out=ubs; data ubs.ubs0303; set ubs._first_; year = 2003; month = 3; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0304 out=ubs; data ubs.ubs0304; set ubs._first_; year = 2003; month = 4; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0305 out=ubs; data ubs.ubs0305; set ubs._first_; year = 2003; month = 5; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0306 out=ubs; data ubs.ubs0306; set ubs._first_; year = 2003; month = 6; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0307 out=ubs; data ubs.ubs0307; set ubs._first_; year = 2003; month = 7; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0308 out=ubs; data ubs.ubs0308; set ubs._first_; year = 2003; month = 8; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0309 out=ubs; data ubs.ubs0309; set ubs._first_; year = 2003; month = 9; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0310 out=ubs; data ubs.ubs0310; set ubs._first_; year = 2003; month = 10; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0311 out=ubs; data ubs.ubs0311; set ubs._first_; year = 2003; month = 11; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0312 out=ubs; data ubs.ubs0312; set ubs._first_; year = 2003; month = 12; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
 
proc copy in=ubs0201 out=ubs; data ubs.ubs0201; set ubs._first_; year = 2002; month = 1; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_; 
proc copy in=ubs0202 out=ubs; data ubs.ubs0202; set ubs._first_; year = 2002; month = 2; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0203 out=ubs; data ubs.ubs0203; set ubs._first_; year = 2002; month = 3; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0204 out=ubs; data ubs.ubs0204; set ubs._first_; year = 2002; month = 4; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0205 out=ubs; data ubs.ubs0205; set ubs._first_; year = 2002; month = 5; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0206 out=ubs; data ubs.ubs0206; set ubs._first_; year = 2002; month = 6; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0207 out=ubs; data ubs.ubs0207; set ubs._first_; year = 2002; month = 7; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0208 out=ubs; data ubs.ubs0208; set ubs._first_; year = 2002; month = 8; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0209 out=ubs; data ubs.ubs0209; set ubs._first_; year = 2002; month = 9; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0210 out=ubs; data ubs.ubs0210; set ubs._first_; year = 2002; month = 10; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0211 out=ubs; data ubs.ubs0211; set ubs._first_; year = 2002; month = 11; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0212 out=ubs; data ubs.ubs0212; set ubs._first_; year = 2002; month = 12; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
 
proc copy in=ubs0101 out=ubs; data ubs.ubs0101; set ubs._first_; year = 2001; month = 1; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_; 
proc copy in=ubs0102 out=ubs; data ubs.ubs0102; set ubs._first_; year = 2001; month = 2; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0103 out=ubs; data ubs.ubs0103; set ubs._first_; year = 2001; month = 3; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0104 out=ubs; data ubs.ubs0104; set ubs._first_; year = 2001; month = 4; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0105 out=ubs; data ubs.ubs0105; set ubs._first_; year = 2001; month = 5; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0106 out=ubs; data ubs.ubs0106; set ubs._first_; year = 2001; month = 6; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0107 out=ubs; data ubs.ubs0107; set ubs._first_; year = 2001; month = 7; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0108 out=ubs; data ubs.ubs0108; set ubs._first_; year = 2001; month = 8; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0109 out=ubs; data ubs.ubs0109; set ubs._first_; year = 2001; month = 9; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0110 out=ubs; data ubs.ubs0110; set ubs._first_; year = 2001; month = 10; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0111 out=ubs; data ubs.ubs0111; set ubs._first_; year = 2001; month = 11; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0112 out=ubs; data ubs.ubs0112; set ubs._first_; year = 2001; month = 12; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
 
proc copy in=ubs0001 out=ubs; data ubs.ubs0001; set ubs._first_; year = 2000; month = 1; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_; 
proc copy in=ubs0002 out=ubs; data ubs.ubs0002; set ubs._first_; year = 2000; month = 2; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0003 out=ubs; data ubs.ubs0003; set ubs._first_; year = 2000; month = 3; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0004 out=ubs; data ubs.ubs0004; set ubs._first_; year = 2000; month = 4; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0005 out=ubs; data ubs.ubs0005; set ubs._first_; year = 2000; month = 5; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0006 out=ubs; data ubs.ubs0006; set ubs._first_; year = 2000; month = 6; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0007 out=ubs; data ubs.ubs0007; set ubs._first_; year = 2000; month = 7; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0008 out=ubs; data ubs.ubs0008; set ubs._first_; year = 2000; month = 8; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0009 out=ubs; data ubs.ubs0009; set ubs._first_; year = 2000; month = 9; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0010 out=ubs; data ubs.ubs0010; set ubs._first_; year = 2000; month = 10; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0011 out=ubs; data ubs.ubs0011; set ubs._first_; year = 2000; month = 11; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs0012 out=ubs; data ubs.ubs0012; set ubs._first_; year = 2000; month = 12; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
 
proc copy in=ubs9902 out=ubs; data ubs.ubs9902; set ubs._first_; year = 1999; month = 2; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9903 out=ubs; data ubs.ubs9903; set ubs._first_; year = 1999; month = 3; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9904 out=ubs; data ubs.ubs9904; set ubs._first_; year = 1999; month = 4; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9905 out=ubs; data ubs.ubs9905; set ubs._first_; year = 1999; month = 5; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9906 out=ubs; data ubs.ubs9906; set ubs._first_; year = 1999; month = 6; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9907 out=ubs; data ubs.ubs9907; set ubs._first_; year = 1999; month = 7; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9908 out=ubs; data ubs.ubs9908; set ubs._first_; year = 1999; month = 8; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9909 out=ubs; data ubs.ubs9909; set ubs._first_; year = 1999; month = 9; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9910 out=ubs; data ubs.ubs9910; set ubs._first_; year = 1999; month = 10; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9911 out=ubs; data ubs.ubs9911; set ubs._first_; year = 1999; month = 11; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9912 out=ubs; data ubs.ubs9912; set ubs._first_; year = 1999; month = 12; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
 
proc copy in=ubs9811 out=ubs; data ubs.ubs9811; set ubs._first_; year = 1998; month = 11; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9809 out=ubs; data ubs.ubs9809; set ubs._first_; year = 1998; month = 9; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
proc copy in=ubs9805 out=ubs; data ubs.ubs9805; set ubs._first_; year = 1998; month = 5; keep year month wtfctr id d1 q10 q15 q16 q12 q13 q11 q14 q8 q9 q14a q15a q16a; proc datasets library = ubs; delete _first_;  
 
 
data ubs.ubs; set ubs.ubs0701 ubs.ubs0702 ubs.ubs0703 ubs.ubs0704 ubs.ubs0705 ubs.ubs0706 
                  ubs.ubs0707 ubs.ubs0708 ubs.ubs0709 ubs.ubs0710 
				              ubs.ubs0602 ubs.ubs0603 ubs.ubs0604 ubs.ubs0605 ubs.ubs0606 
                  ubs.ubs0607 ubs.ubs0608 ubs.ubs0609 ubs.ubs0610 ubs.ubs0611 ubs.ubs0612
				  ubs.ubs0501 ubs.ubs0502 ubs.ubs0503 ubs.ubs0504 ubs.ubs0505 ubs.ubs0506 
                  ubs.ubs0507 ubs.ubs0508 ubs.ubs0509 ubs.ubs0510 ubs.ubs0511 ubs.ubs0512
				  ubs.ubs0401 ubs.ubs0402 ubs.ubs0403 ubs.ubs0404 ubs.ubs0405 ubs.ubs0406 
                  ubs.ubs0407 ubs.ubs0408 ubs.ubs0409 ubs.ubs0410 ubs.ubs0411 ubs.ubs0412
                  ubs.ubs0301 ubs.ubs0302 ubs.ubs0303 ubs.ubs0304 ubs.ubs0305 ubs.ubs0306 
                  ubs.ubs0307 ubs.ubs0308 ubs.ubs0309 ubs.ubs0310 ubs.ubs0311 ubs.ubs0312
                  ubs.ubs0201 ubs.ubs0202 ubs.ubs0203 ubs.ubs0204 ubs.ubs0205 ubs.ubs0206 
                  ubs.ubs0207 ubs.ubs0208 ubs.ubs0209 ubs.ubs0210 ubs.ubs0211 ubs.ubs0212
				  ubs.ubs0101 ubs.ubs0102 ubs.ubs0103 ubs.ubs0104 ubs.ubs0105 ubs.ubs0106 
                  ubs.ubs0107 ubs.ubs0108 ubs.ubs0109 ubs.ubs0110 ubs.ubs0111 ubs.ubs0112
                  ubs.ubs0001 ubs.ubs0002 ubs.ubs0003 ubs.ubs0004 ubs.ubs0005 ubs.ubs0006 
                  ubs.ubs0007 ubs.ubs0008 ubs.ubs0009 ubs.ubs0010 ubs.ubs0011 ubs.ubs0012
                              ubs.ubs9902 ubs.ubs9903 ubs.ubs9904 ubs.ubs9905 ubs.ubs9906 
                  ubs.ubs9907 ubs.ubs9908 ubs.ubs9909 ubs.ubs9910 ubs.ubs9911 ubs.ubs9912
                  ubs.ubs9811 ubs.ubs9809 ubs.ubs9805;
   yearmth = year*100+month; 
   if yearmth > 200112 then do; 
     futretown = q10; 
	 if q11 = 2 then futretown = -q10; 
	 futretmkt = q12; 
	 if q13 = 2 then futretmkt = -q12; 
	 ownpast = q8;
     if q9 = 2 then ownpast = -q8;  
   end; 
   if yearmth > 200304 then futretmkt = .; 
   if yearmth < 200201 and yearmth > 199805 then do; 
     futretown = q15; 
	 futretmkt = q16; 
	 ownpast = q14; 
	 if yearmth > 199912 then do; 
	   if q14a = 2 then ownpast = -q14; 
	   if q15a = 2 then futretown = -q15; 
	   if q16a = 2 then futretmkt = -q16; 
	 end; 
   end; 
   if yearmth = 199805 then do; 
     futretown = q12; 
	 futretmkt = q13; 
	 ownpast = q11;
   end; 
   age = d1; 
   if yearmth < 200001 then do; 
     if futretown = 101 then futretown = 0; 
	 if futretown > 101 then futretown = .; 
	 if futretmkt = 101 then futretmkt = 0; 
	 if futretmkt > 101 then futretmkt = .; 
	 if ownpast = 101 then ownpast = 0; 
	 if ownpast > 101 then ownpast = .; 
	end; 
	else do; 
	 if abs(futretown) > 996 then futretown = .;   *some 997 values exist, but they are nonsensical; 
     if abs(futretmkt) > 996 then futretmkt = .;
     if abs(ownpast) > 996 then ownpast = .;  
	end;
keep year month futretown futretmkt id age wtfctr ownpast; 

proc sort data=ubs.ubs; by year month id; 
                                                                                                                                    
PROC EXPORT DATA=ubs.ubs                                                                                                                 
OUTFILE= "c:\hdrive\research\projects\DepressionBabies\Stata\ubs.txt"                                                                 
            DBMS=TAB REPLACE;  


run; 
                                                                                                                                        
                                 
